#!/usr/bin/perl
open(FILEIN,"p96.fic"); 
#on ouvre le fichier qu'on va lire : ici, c'est p96.fic
$i=0; # On initialise le compteur de lignes à 0
while ($ligne = <FILEIN>){
	$i++;
}
print "Dans ce fichier, il y a $i lignes\n";
close (FILEIN);